98 FOR J = 1 TO 2000: NEXT : CALL -1998: FOR J = 1 TO 2000: NEXT : RETURN : REM FILLS SCREEN FOR WIPING DEMO****************************************
100 END
150 FOR I = 24 TO 13 STEP -1: HTAB 1: VTAB I: CALL -868: VTAB (25 -I): CALL -868: FOR J = 1 TO 50: NEXT : NEXT : CALL -936: RETURN : REM SCREEN WIPE FROM TOP AND BOTTOM TO MIDDLE******************
151 FOR I = 13 TO 24: HTAB 1: VTAB I: CALL -868: VTAB (25 -I): CALL -868: FOR J = 1 TO 50: NEXT : NEXT : RETURN : REM SCREEN WIPE FROM MIDDLE TO TOP AND BOTTOM ****************************************
152 FOR Z = 1 TO 20:X = 20 -Z: POKE 32,X: POKE 33,(2 *Z): CALL -936: FOR I = 1 TO 50: NEXT : NEXT : RETURN : REM CURTAINS****************************************
153 POKE 33,1: FOR I = 0 TO 20: POKE 32,I: CALL -936: POKE 32,(40 -I): CALL -936: FOR J = 1 TO 50: NEXT : NEXT : POKE 33,40: POKE 32,0: RETURN : REM "SLIDING DOORS" SCREEN WIPE FROM LEFT AND RIGHT EDGES TO CENTRE****************************************
154 HTAB 1: FOR I = 1 TO 6: VTAB I: CALL -868: VTAB (2 *I): CALL -868: VTAB (3 *I): CALL -868: VTAB (4 *I): CALL -868: FOR J = 1 TO 100: NEXT : NEXT : CALL -936: RETURN : REM "VENETIAN BLINDS" SCREEN WIPE****************************************
155 FOR I = 1 TO 12: POKE 35,I: CALL -936: POKE 34,(24 -I): CALL -936: POKE 35,24: POKE 34,0: POKE 33,I: POKE 32,(I -1): CALL -936: POKE 32,(41 -(2 *I)): CALL -936: POKE 32,0: POKE 33,40: FOR J = 1 TO 25: NEXT : NEXT : HOME : REM SCREEN WIPE FROM 4 EDGES TO MIDDLE**************
158 HOME : PRINT ST$: PRINT : POKE 34,2: RETURN : REM PRINTS ST$ AND PROTECTS UNTIL 'POKE 34,0' IS ENCOUNTERED****************************************
159 VTAB (24): PRINT ST$: POKE 35,22: HOME : RETURN : REM PRINTS ST$ ON BOTTOM LINE AND PROTECTS UNTIL A 'POKE 35,24' IS ENCOUNTERED****************************************